Imports System.IO

Public Class CopyErrorEventArgs
    Inherits EventArgs

    Private _fileInfo As FileInfo
    Private _exception As Exception

    Friend Sub New(ByVal fileInfo As FileInfo, ByVal exception As Exception)
        Me._fileInfo = fileInfo
        Me._exception = exception
    End Sub

    Public ReadOnly Property FileInfo() As FileInfo
        Get
            Return Me._fileInfo
        End Get
    End Property

    Public ReadOnly Property Exception() As Exception
        Get
            Return Me._exception
        End Get
    End Property
End Class